home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / TEST / TESTPOS2.I < prev    next >
Encoding:
Modula Implementation  |  1989-10-09  |  529 b   |  38 lines
  1. IMPLEMENTATION MODULE testpos2;
  2.  
  3. (*$C-*)
  4.  
  5. FROM SYSTEM IMPORT ADDRESS, ADR, TSIZE, BYTE, WORD, LONGWORD, VAL;
  6.  
  7. (*$l-*)
  8.  
  9. PROCEDURE m0;
  10.   BEGIN
  11.     ASSEMBLER
  12.         link    a5,#0
  13.         break
  14.         unlk    a5
  15.     END
  16.   END m0;
  17.  
  18. PROCEDURE m1;
  19.   BEGIN
  20.     ASSEMBLER
  21.         link    a5,#0
  22.         trap    #6
  23.         dc.w    -1
  24.         unlk    a5
  25.     END
  26.   END m1;
  27.  
  28. PROCEDURE m2;
  29.   BEGIN
  30.     ASSEMBLER
  31.         link    a5,#0
  32.         jsr     m1
  33.         unlk    a5
  34.     END
  35.   END m2;
  36.  
  37. END testpos2.
  38.